    package body Manejo_De_Claves is
      procedure Tomar_Clave(C : out Clave) is
      begin
          -- Cuerpo del procedimiento
      end Tomar_Clave;

      function "<"(X, Y : in Clave) return Boolean is
      begin
          -- Cuerpo del operador
      end "<";
          end Manejo_De_Claves;
